home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / mikecom / strip.asm < prev    next >
Assembly Source File  |  1987-05-17  |  1KB  |  29 lines
  1.  
  2. title SET BIT STRIPPING MASK
  3. include subfx.h
  4.  
  5. ;  Mike Dumdei,  6 Holly Lane,  Texarakana TX  75503
  6.  
  7. ;**************************************************************************
  8. ; ASYNC_STRIP --  Sets the bit stripping mask that is ANDed with incoming
  9. ;                 characeters.  Returns R_OK if successful else R_NOPORT.
  10. ;**************************************************************************
  11. begseg          COMM_TEXT
  12. publicproc      _async_strip
  13.         push    bp
  14.         mov     bp,sp
  15.         push    si              ;stack frame setup
  16.         call    __ck_port_arg   ;ck if valid, load pointers
  17.         jz      strip_exit      ;bad arg if ZR flag set
  18.         mov     al,StripMask
  19.         mov     STRIP_MASK,al   ;set the new bit stripping mask
  20.         xor     ax,ax           ;AH=0, AL=MSR value
  21. strip_exit:
  22.         pop     si
  23.         pop     bp
  24.         ret                     ;restore regs and exit
  25. _async_strip    endp
  26.  
  27. endseg          COMM_TEXT
  28.         end
  29.